لاد طل 
يجب وضع ملف فاعدة البيانات فى هذا الإمتداد و بنطبق ذلك على جميع مشروعات الدوت نت التى تستخدم القيجوال بيزك دوت نت 
فعلى سبيل المثال اذا اخترنا الدرايف ( والدى به ‌الفولدر | ١١١٠۳٠۳٠٠‏ فبالتالى سيكون ملف قاعدة البيانات فى هذا المسار 
1 
È‏ 
1 
و ايضااى ملف اخر خاص اليرنامج أو فولد من المستحسن وضعه فى نفس المسار منل ملفات الصوت و الصور و الإيقونات و التقارير 
حبث ان هدا المسار يعتبر المسار الإاساسی لای برنامج . 
4 ک0 q0‏ « * 
تصميم فاعدة البيانات 
المشروع سبكون عبارة عن تسجيل ببانات الإصدقاء و بالتالى ستكون قاعدة الببانات عبارة عن الاتى : 
ed‏ 
Field FName FBirthD Faddress FMobile FEmail‏ 
Data Type Text Date Memo Text Text‏ 
Length 40 --- ---- 15 35‏ 
مع العلم أن (رقم الموبيل) سيكون ٠.‏ ١إ‏ إ١‏ | ولقوم اغلاق قاعدة البياتات. 


% 
تصميم المشروع 

فتح الفيجوال بيزك او الفيجوال ستوديو دوت نت (اى اصدار) و نقوم باضافة فورم و موديول و نقوم بعمل حفظ للمشروع فى الفولدر 
٠١ ٠١ (٠‏ اتم قوم باغلاق المشروع تم نفتحه رة اخرى , 


My Friends Data (0) کما بالشكل‎ 
Labels - TextBox - Masked TextBox = Date TiemPicker - Buttons طض‎ - 

- تسمية الآدوات السابقة بطريقة تجعلها سهلة التذكر اذا ما استخدمناها مرة أخرى , على سبيل المتال خانة 

الاسم ( ١اا‏ زر الخروج (11 ۵٤×‏ ) و هدا 5 TTS‏ 


برمجه امود ول 26-11-0 
هو دیول Address Modulel‏ 
حيث ان كل التعريفات فى الموديول ستتعرف على مستوى المشروع بالكامل 

[۔ معی الگود : اسٽیراد مکثبة Mobile 01.٤1(8‏ 
2 معي الكود : يتعرف المشروع كله على المتغيرات من نوع أهإاوه) و أل اهاوه هو الإداد. COE TT‏ 
3 معلى الكود : تعريف المتغيرات التى ستساعدنا على توصيل قاغدة البيانات بالطريقة الغير متصلة و لاحظ 
لانا استخدمنا أل )ء5و)و( فان هذا معناه آننا سنعمل بالطريقة الغير متصلة حيت سيتم تخزين قاعدة البيانات 
فى ال )56ة)و( و ذلك كما شرحنا باختصار مسبقا فى المقدمة , 


hame 


lew Friend 


save Friend Imports System.Data.OleDb 


Find Friend Module Modulel 


Edit Friend Public IXTEBX, DPX, MI<tX< A CONETOL 

Delete Friend 
5 CN As New OleDbConnection 

Exit My Friends 5 5 CMD As New OleDbCommand 
1 AD As New OleDbDataAdapter 
CMDB As New OleDbCommandBuilder 
DBS As DataSet 
Info As New DataTable 
Rec, Frec() As DataRow 
IR SS SNE 


لإاحظ ايضا ان اسماء المتخرات مثل ((0۷1 - ۸)) يمكن تخيرها لأى اسم . 


EUOlIG Class HOEML 
Private SUb Clearal l () 
HOE Each TXtBX IN Me. CONREEOlLS 
UE TVET IXEBX US TezEBOxX IMMER 
TXEBxX Tex > 
EOE Each DEPX UM Me. CONREEOLS 
If TypeOf DtpX Is DateTimePicker 1 
DtpX.Text = Today () 
HOE Each Mlxex IR Me. COnNnErOLS 
TE TIBET Mixes lS Mas Ked leS EOS TIMER 
MTxtx . Text 2 ™™ 
End JE 


Private Sub Form1_Load (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load 
If CN.State = ConnectionState.Open Then CN.Close() 
CN.ConnectionString = "Provider = Microsoft.Jet.Oledb.4.0 ; Data Source = 
aAAOREE MES 
CN. Open () 
ERGE SUG 


Private Sub CmdNew_Click (ByVal System.Object, ByVal 
System.EventArgs) Handles CmdNew.Click 

clearall () 

ERG SUG 


Private Sub Cel a lE_CI Ole RES SERE As System. Object, ByVal @ھَ‎ 
System.EventArgs) Handles CmdExit.Click 

Application. Exit () 
End SUS 


